home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / blanker.zip / BLANK.MOD < prev    next >
Text File  |  1990-02-04  |  704b  |  22 lines
  1. (*====================================================================
  2.   = Program:       Blank.MOD                                         =
  3.   = Programmer:    Peter M. Perchansky                               =
  4.   = Purpose:       EGA/VGA Screen Blanker.  Blanks screen, waits for =
  5.   =                key press, then turns screen back on.             =
  6.   = Date Written:  02-04-90                                          =
  7.   ====================================================================*)
  8.  
  9. (*$M CODE*)
  10. MODULE Blank;
  11.  
  12. FROM PMPDos IMPORT ReadKey, ScreenOn, ScreenOff;
  13.  
  14. VAR
  15.     keyPress : CHAR;
  16.  
  17. BEGIN
  18.     ScreenOff ();
  19.     keyPress := ReadKey ();
  20.     ScreenOn ();
  21. END Blank.
  22.